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EDTSUFSTRING = Line-mode string search se -1984 9:5 X-11 s-32 V 1 
16- Sep-1984 93; 33:3 bes aK$V nen TER: cto + She SUF STRING. BLI; Pyee (1) 
1 ZTITLE “EDTSUFSTRING = Line-mode string search’ 
§ MODULE E StsuF STRING ( ! Line-node string sear 
Z prem = *'v04-000' ! File: U STRING. aut Edit: J8S1005 
005 


BEGIN 
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; 8 08 1 it * 
3 a 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ® 
3 1) Boi) : it ALL RIGHTS RESERVED. ® 
M4 ; s 
; i $O18 1 Ie mis hier * IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ee | Bete 1 !*® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH baccn SE AND WITH THE * 
oa 015 1 !* INCLUSION OF ag ® mwove Comyn cut NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 0016 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 17 0017 1 !* OTHER PERSON. NO TITLE TO Aue OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 + dt 4 : 7° TRANSFERRED. ® 
3 it ® 
5 20 Bass 1 !@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COAMITMENT BY DIGITAL EQUIPMENT * 
3 25 5058 : :* CORPORATION. * 
4 ‘* ® 
3 2 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; $2 os 2 : i SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 : ® 
: 7 0027 1 !* * 
3 : 88 3 1 See R eR REAR AAAAAAAAAAAAAAAAAAAAEAEARA RARER AAA AAAAAAAAAAAAAARAAAAREREAEREEEe 
: 1! 

: 0 0030 1 

3 1 0031 1 !++ 

3 2 it) 1! FACILITY: EDT -- The DEC Standard Editor 

; 3 0033 1! 

3 4 0034 1 ! ABSTRACT: 

: 8 $036 1 i Line-mode stri h 

3 ne-mode string search. 

; = 0037 11 . 

3 M3 S34 : ; ENVIRONMENT: Runs at any access mode - AST reentrant 

3 “9 ae : AUTHOR: Bob Kushlis, CREATION DATE: February 7, 1978 

; $§ BRe6 1 ! MODIFIED BY: 

: 6 0045 1! 

; | 6446 044 1 ! 1-001 - Original. DJS 19-FEB-1981. This module ves created by 

: 65 > BF "Regulars routine U_F _STRING from seene ¥ 

; «646 B06 1 ! 1-002 - Regularize headers and remove control C checking. JBS 11-Mar-1981 
: 67 Bne 1 ! 1-00 : ry about string trunses ten, JBS 05 “rax5'? 82 

; | «648 8 1 ! 1-004 = Put in check for control C. STS 15-Jun-1982 

; | «649 0049 1 ! 1-CO05 - Remove EDTSSA_STR_CMP. JBS 16-Jul-1982 
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SSBTTL *Declerations’ 
TABLE OF CONTENTS: 
REQUIRE “EDTSRC: TRAROUNAM’ ; 
: —D SSPNDLS R; 

INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREG'; 
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} TSBTTL “EDTSSFND_STR = Line-mode string search’ 


1 “mia EDTSSFND_STR ( 


EDT eye stains Siew = Line-mode string search 16- £0-1984 93:39:38 ° 1 Bliss-32 ¥4.0-74 3 2B 


ine-mode string search 
ointer to model string 
Length of mode. string 
Direction of search 


‘ee 


; FUNCTIONAL DESCRIPTION: 
i Line mode string search routine. Set-up the string which is passed in 
; as the current search str ng then work our way through the buffer in 

4 the specified direction loo ing for the string. f the string is found 
: the buffer position is left at the ayrene otherwise it will at the 
beginning or end depeneding on the direction. 

; FORMAL PARAMETERS: 

STRING Pointer to the search string. 

LEN Length of the search string. 
DIR Direction of search: 0 = backward, 1 = forward. 

i IMPLICIT INPUTS: | 
EDTSSA_CUR_BUF | 
DISS$T-SEA_STR 

; DIS$G_SEA STRLEN | 
; EDTSSG_EXCT_MATCH 
i IMPLICIT OUTPUTS: | 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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EDTSSG_CC DONE | 
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EDTS$A~CUR_BUF 
ROUTINE VALUE 
9 = string not found 
= string found 
8 2 = string invalid 
1 SIDE EFFECTS: 
§ | 
| 
5 
BEGIN | 
EXTERNAL ROUTINE | 
DTSSCHK_CC | 
40 DISSSET~SEASTR, 
4 DTSSRD_AXTLN, 
42 EDTS$RD_PRVLN, | 
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1 
NG = Line-mode string search 1s 19 75 VAX-11 BLliss-32 V4.0-76 4 
mete = Line-mode string search 14- i 3h 93; 33 33 DISK SVMGMASTER-CEDT  SRCSUFSTRING.BLIC3 (3) 
EDTSSSTR_CMP; ! Match two strings of equal length 
Sateen, 
DISSA_CUR_BUF : REF TBCB_BLOCK, Pointer to current buffer TBCB 
DT$$G_C i entrol C seen fla ag 
Bree EAASTN i BLOCK CCHSALLOCATION (64) ! Last search string. 
DTSS$G_SEA STRLEN ength of above. 
DTSSAWK CN: REF LIN_BLOCK, i bothter te the current Line 
DT$$G “Ext NAATCH: i The type of string matching 


rOS*EONTROL, C : INITIAL (0), 
SOURCE ; 
'¢ 
a Set up the new search string. 
If EDTSSSET_SEASTR (.STRING, .LEN) 
THEN 
BEGIN 
WHILE NOT .CONTROL_C DO 
CONTROL_C = EDTSSCHK_CC (); 
7 it seaching backward, then go back a Line. 


If ( NOT .DIR) 
THEN 


IF ( NOT EDTSSRD_PRVLN ()) THEN RETURN (0); 


te 


Get a pointer to the Line. 
© SOURCE = EDTSSA_WK_iN CLIN_TEXT]; 
: Compare at each character in the Line. 


INCR I FROM DTSSA_CUR BUF CTBCB GHAR pos) TO ' 
(,EDT$$A_WK"LN CLIN_LENGTA TEDTS$$G_SEA_STRLEN) DO 


IF EDTSSSTR_CMP (CHSPTR (.SOURCE, .1), EDTSST_SEA_STR, .EDTS$G_SEA_STRLEN, 


THEN 
ae Nrtor BUF CTBCB_CHAR_POS] = .] + .EDTSS$SG_SEA_STRLEN; 


'¢ 
If the direction is forward, then move forward a Line. 
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1 | 
fpT TRING DISUFSTRING = Line-mode i h 16- - 759: - - . 
eee b08 EDTSSFAD Sth - [ineomede string search 1 ~35p-198e 93:38:79 DL SKSVMGMASTERSCEDT. SRCSUFSTRING.BLIG] (33 
is | 


; 4 
3 77) & IF .DIR | 
a f ? THEN 
} : rh 2 IF ( NOT EDTSSRD_NXTLN ()) THEN RETURN (0); 

; ? ; : 

7 8 os 

3 77? EDTSSG_CC DONE = 1; 

; , RETURN” (OT; 
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! of routine EDTSSFND_STR 


-TITLE EDTSUFSTRING EDTSUFSTRING = Line-mode string se 
\Vv04-000\ 


-EXTRN EDTSSRD_AXTLN, EDTSSRB_PRVLN 

. $ P $A_COR_BUF 
-EXTRN EDTS$G_CC_DONE, EDTSST_SEA_STR 
-EXTRMN EDTS$G_SEA_STRLEN 

-EXTRN EDTSSA_WK_CN, EDTSS$G_EXCT_MATCH 


-PSECT _EDTSCODE.NOWRT, SHR, PIC,2 


-ENTRY EDTSSFND STR, Save R2,R3,R4,R5,R6,R7,RB 
MOVAB EDTSS$A_COR_BUF, 
MOVAB EDTSS$G-SEA-STRLEN, R7 


3 SSRHEE BB 


06 =A 


B R6, 
CALLS a0. EDTSSRD_PRVLN 
RO. 7$ 


C 

MO EDTS$A_CUR_BUF, RO 

MOVZBL {R1), R4 

bIS$¢_SEA_STRLEN, R4 
(RO)? I 


. 
nm 
=x Vv 
“_—_ mM 
za» Zz 
za - 
m 
$ LJ 
= a) 
ae Ht of 
No omz » Sad 
z 
oO 
oO 
. 
m 
i=] 
“~ 
Sad 
wn 
wn 
mom 
“~ 
an" 
m 
> 
nw 
“~ 
DD 


oc 


+ 


SRVSVSVASLILS= 


on 
8 
<3 
Dw PASS [VAN SSRS Ow DOBHrVoOVe Emin 


23 

wv 

Cc 

wn” 

= 

a 
DRBeommnmn ry 
Oof--oVTuTCe 


23 


accent tt NE CE LC CCC CC CO LL LL LL ee 
- 


= 
' 


. | 
TR T © = © ° 
Vou-b00 ™° —EDISEFNDLSTA. ~ Linermode String Search Vefeort98e O4:59:88  YMRCNI OLSstz42 46s 06rtG a sratnc. oust caf 


i HS 87831 :<BLF /PAGE> 


| 

| | 
D0 MOVL.  EDTS$A_CUR_BUF, RO ; 0763 : 
| oc Ad 5 e é ADDW3 EDTSs “SEASTRLEN, I, 12(RO) : | : 
++ . te » Rom : 0764 : 
Ds 54 F3 00 AOBLEG R4, I, 38 : 0759 : 
| o A FE 00 ait pik, f : of | ; 
| 000009006 if ALLS #0, FDTSSRD_NXTLN 3 0774 : 
| HT 9¢ Bea, 8" : ; 
000000006 00 D005 MOVL #1, EDTS$6_CC_DONE : oF : 
50 2 99 9005 MOV. #2, RO ; 0782 : 
50 ps 0 CLRL RO : 0783 3 
ue RET s : 
; Routine Size: 165 bytes, Routine Base: _EDTSCODE + 0000 ; 
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1 
EDT TRING DISUFSTRING = Line-mode string search 18-5 Sep-19 :5 VAX-11 Bliss-32 V4.0 P 
bes008 EDTSSFAD STR = - Line-mode string search 14-Sep 71382 93: 33: 73 DISKSVMSMASTER:CEDT. she UF STRING. BLI:i (4 
; 318 Ore? } END ! of module EDTSUFSTRING 
5S 788 0 ELUDOM | 
PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 165 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Seed or ree ee -- Symbols ----<---- Pages Processing 
: File Total toaded Percent Mapped Time 
: _$255$DUA28: (EDT. SRCJEDT.L32;1 377 32 8 40 90:00.2 
3 HE tars EDT. SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 
/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=LIS$:UF STRING/OBJ=OBJ$:UFSTRING MSRC$:UF STRING.BLI/UPDATE=(ENHS$:UF ST 


165 BF + 0 data bytes 


exenes/CPU-Rin: 1 303 
: ry Used: 93 pages 
; Compilation Complete 
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